home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / mus / edit / OctaScripts.lha / scripts / MIDIchannel+1.omed < prev    next >
Text File  |  1998-04-15  |  375b  |  21 lines
  1. /************************************************************
  2.  
  3.                    OctaMED ARexx Script
  4.  
  5.        Increases MIDI channel on current instrument
  6.  
  7. ************************************************************/
  8.  
  9. IN_GETVOLUME VAR volume
  10. IF (volume=0) THEN DO
  11.    IN_SETVOLUME VOL 64
  12. END
  13.  
  14. IN_GETMIDICHANNEL VAR ch
  15.  
  16. IF (ch<16) THEN DO
  17.    IN_SETMIDICHANNEL ch+1
  18. END
  19.  
  20. EXIT
  21.